文字列をコマンドとして実行
文字列をRのコマンドとして実行
eval(parse(text = "x <- 1")) x
## [1] 1